%%
%% Ausgabe der Etiketten
%%

\font\big=cmr12
\font\ownfont=cmss8
\font\largeheadfont=cmssu30 % für den Namen im Kopfteil
\font\footfont=cmss8 at 8truept % werden kleine Schriften gewählt
\font\symbols=wasy8 at 8truept % das Telefonzeichen
\def\ts{\thinspace}
\parindent=0pt
\nopagenumbers

\hsize=59truemm
\vsize=36truemm

\chardef\atcode=\catcode`\@
\catcode`\@=11 % \makeatletter

\def\beginlinemode{\endmode
  \begingroup\obeylines\def\endmode{\par\endgroup}}
\let\endmode=\par

%
% Berechnung des Offsets für das Etikett mit der Spalte #1 und Zeile #2
%
\def\labelposition|#1|#2|{%
  \dimen1=-16truemm%
  \count1=#1%
  \advance\count1 by -1%
  \dimen2=\count1truemm%
  \multiply\dimen2 by 66%
  \advance\dimen1 by \dimen2
  \hoffset=\dimen1% hoffset berechnet
  \dimen1=-9truemm%
  \count1=#2%
  \advance\count1 by -1%
  \dimen2=\count1truemm%
  \multiply\dimen2 by 38%
  \advance\dimen1 by \dimen2
  \voffset=\dimen1% voffset berechnet
}%

\def\ownfirm{}%
\def\ownname{}%
\def\ownstreet{}%
\def\owncity{}%
\def\ownheadone{}%
\def\ownheadtwo{}%
\def\owndialcode{}%
\def\ownphone{}%
\def\ownfax{}%

%
% Inhalt des Etiketts
%
\def\beginlabel{%
  {%
    \parskip=-4pt\ownfont \ownfirm\par%
    \ownstreet\par%
    \owncity
  }\par%
  \medskip\hrule\medskip%
  \big\beginlinemode%
}%

%
% falls hinter der Adresse noch etwas kommen soll.
%
\def\endlabel{\endmode}%

%
% Berechnung des Offsets für das Etikett mit der Spalte #1 und Zeile #2
%
\def\visitposition|#1|#2|{%
  \dimen1=-16truemm%
  \count1=#1%
  \advance\count1 by -1%
  \dimen2=\count1truemm%
  \multiply\dimen2 by 66%
  \advance\dimen1 by \dimen2
  \hoffset=\dimen1% hoffset berechnet
  \dimen1=-5truemm%
  \count1=#2%
  \advance\count1 by -1%
  \dimen2=\count1truemm%
  \multiply\dimen2 by 38%
  \advance\dimen1 by \dimen2
  \voffset=\dimen1% voffset berechnet
}%

%
% Inhalt der Visitenkarte
%
\def\makevisit{%
\smash{\centerline{\baselineskip=9truept\largeheadfont\ownfirm}}
\smallskip
\hrule
\smallskip
{\baselineskip=9truept\centerline{\baselineskip=9truept\footfont\ownheadone}
\centerline{\footfont\ownheadtwo}
}\smallskip
\centerline{\rm \ownname }
\centerline{\rm \ownstreet }
\centerline{\rm \owncity }
\smallskip
\centerline{{\symbols\char'007} \owndialcode\ \ownphone\ \ Fax \ownfax}
\vfill\eject
}%

\catcode`\@=\atcode % return to previous catcode
